home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlackHole.dxr / 00063_tableau cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.4 KB  |  56 lines
  1. on beginSprite me
  2.   global scount, stock, tableau
  3.   puppetSound(3, "deal1")
  4.   sprite(me.spriteNum).visible = 1
  5.   if scount = 1 then
  6.     tableau.addProp(symbol(string(sprite(me.spriteNum).startFrame)), new(script("tableauobj"), []))
  7.   else
  8.     sprite(me.spriteNum).loc = sprite(me.spriteNum - 1).loc + point(sprite(me.spriteNum).width / 2, 0)
  9.   end if
  10.   scount = scount + 1
  11.   if scount = 4 then
  12.     scount = 1
  13.   end if
  14.   sprite(me.spriteNum).member = stock[1].rank & "_" & stock[1].suit
  15.   tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.add(new(script("card"), me.spriteNum))
  16.   stock.deleteAt(1)
  17. end
  18.  
  19. on mouseDown me
  20.   global tableau
  21.   puppetSound(3, "pickcard")
  22.   if sprite(me.spriteNum).visible = 1 then
  23.     if me.spriteNum = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].spnum then
  24.       sprite(me.spriteNum).locZ = me.spriteNum + 1000
  25.       sprite(me.spriteNum).moveableSprite = 1
  26.       sprite(me.spriteNum).loc = the mouseLoc
  27.     end if
  28.   end if
  29. end
  30.  
  31. on mouseUp me
  32.   global equalvalue, hotcard, tableau, foundation, points
  33.   if me.spriteNum = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].spnum then
  34.     if the clickOn = me.spriteNum then
  35.       if sprite(me.spriteNum).visible = 1 then
  36.         if (equalvalue = 1) and (hotcard <> 0) then
  37.           puppetSound(3, "pickcard")
  38.           sprite(me.spriteNum).loc = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].location
  39.           sprite(me.spriteNum).moveableSprite = 0
  40.           sprite(me.spriteNum).visible = 0
  41.           sprite(hotcard).member = sprite(the clickOn).member
  42.           tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.deleteAt(tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count)
  43.           foundation[symbol(string(hotcard))].cards.append(new(script("card"), hotcard))
  44.           points = points + 10
  45.         else
  46.           puppetSound(3, "dropcard")
  47.           sprite(me.spriteNum).locZ = me.spriteNum
  48.           sprite(me.spriteNum).moveableSprite = 0
  49.           sprite(me.spriteNum).loc = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].location
  50.         end if
  51.       end if
  52.     end if
  53.   end if
  54.   sprite(me.spriteNum).locZ = me.spriteNum
  55. end
  56.